home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 5 / DISK2058.ZIP / UNFAST.EXE / SIEVE.F < prev    next >
Text File  |  1980-01-01  |  451b  |  29 lines
  1. #short
  2. const max=8191
  3. print bios "Sieve - 25 iterations... ";
  4. t1=timer
  5. flags ? max
  6.  
  7. repeat 25
  8.     {
  9.     count=0
  10.     fill max/2 from flags with -1
  11.     for i=0 to max
  12.     if peekb (flags+i) then
  13.     {
  14.     prime = i*2+3
  15. ;    print prime;"    ";
  16.     k = i + prime
  17.     while k<=max
  18.         {
  19.         pokeb flags+k,0
  20.         k+=prime
  21.         }
  22.     count++
  23.     }
  24.     next i
  25.     }
  26.  
  27. t2=(timer-t1)*100/182
  28. print bios count" primes in ";t2/10;".";t2 mod 10;" seconds."
  29.